<% Dim intLunghezza intLunghezza = 200 Dim strSQL strSQL = "select datepart(dd,dateadd(dd,TServizio.validita,TServizio.datains)) as gscadenza, datepart(mm,dateadd(dd,TServizio.validita,TServizio.datains)) as mscadenza, datepart(yy,dateadd(dd,TServizio.validita,TServizio.datains)) as ascadenza, tcategoria.nome as categoria,ragione,email,web,tservizio.descrizione,parole_chiavi,prezzo,validita,segnalazioni,offerta from tservizio inner join tcategoria on tcategoria.cod=tservizio.cod_categoria where offerta=0 and tservizio.cod="&Request.Querystring("cod") Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = conn rs.CursorType = 0 rs.LockType = 1 rs.Source = strSQL rs.Open %>
       
 

richieste servizi

    

finericerca.gif (147 byte) lente.gif (263 byte)

Cerca:

Tra:

 
Nome dell'azienda/società che richiede il servizio:
   <%=rs("ragione")%>
Descrizione del servizio:
   <%=rs("descrizione")%>
Sono disposto ad accettare fino ad un prezzo massimo di:
   <%=rs("prezzo")%>
Questa richiesta e' valida fino al:
   <%=rs("gscadenza")%>/<%=rs("mscadenza")%>/<%=rs("ascadenza")%>
Sito web collegato:
   http:// "><%=rs("web")%>
Per informazioni scrivere a:
   "><%=rs("email")%>